12188 Y1$=“PDB.HUD."1REM****#¥*RXIX¥¥43 12181 Y3$="BF"JGBTU11312 12158 Y1$="NEG.HUD."1REH$$*IX¥***#¥¥I44 12151 Y3%="RH":GDTU11312 12288 Y1$="—-- ----- ———·—-";REMxx*#*t*45 12281 RETURN 12258 Y1$=“ --—— mm ·»----- —":REM***#**$45 12251 RETURN 12388 Y1w¤“HESIDURL~H8U."IREHX#*X****47 12381 Y=8:GUSUEIBBBBZGU5UE12188IRETURN 12358 Y1$="HUD.5EN5ITIUITY"ZREM***$#!48 12353 YS=188IY6=X£8)IY/188tIFYA=8THEHY=1!GUTG12355 12354 Y=YA 12355 GD5UH18758 12356 Y=YB:GD5UH18888!BU5UH12188:IFHBS<Y-Y6)/Y6<.BSTHEN12362 12359 YH=YB¥Y6/(Y+.81)IGUTD12356 12362 Y#INT<YB*18>/18:RETURN 12488 Yl%="TX~HUD.FRERU.RESP.":REMX**49 12481 GU5UH115541Y=28:YA=1:GD5U312358:GD5UB12188:Y(8}=Y 12482 FURY7x1TOY9!Y¤X(28+Y7}:GU5UB18758IGU5UB12188 12483 Y(Y7)=<INT(288*LOG<Y/Y(B)}/LDG<18))J/18:HEXTY7:Y=1:GDTU18758 12458 Y1$="~ ·--- —»~ —---- ~~—~"IRENXI$X*K*58 12451 RETURN 12588 Y15¤“H¤D.DI3TDRTIUH“LREHI*#*###51 12582-IFYE=8THENYE=1:GOTU12518 12585 IFYE=2 RND YS$<>“h"THEN14958 12518 UNYEGUTU12515.12525.12535 12515 YEM8: `¤`F\¤¤. 3; GG‘E§UB1235B 12528 GUTG11454 — 12525 YH¤8lYA=.5:GUSUB12358 12538 GUT011456 12535 YE¤8:YA¤1:GUSUE12358 12548 GUTD1145H 12558 Y1%="HUQ.DIST. 1 KHZ “:REM*##**52 12552 YE=3:GD5UB1258B 12554 YH=8:RETURN 12688 Y1%="E/N TRhNSM."IREH*$#$*IXKI53 12681 Y5$¤"BB.":GDSUB16818:GUBUB16888 12682 IF LEFT${Y5§.2)¤"XB" THENY=(INT<18*UAL(MID$(Y5G.3.15))>)/18iRETUm 12683 GUT814958 12658 Y1$="RF FREGU.HETER“:REM*#**IXl54 12651 UNYEGDTD12652.12653 12652 YE¤8¥Y5$=“AF."IGD5UB16818:GDSUE16888iGDTU12654 12653 YE=8IT5$="AT.“:GUSUB16818:GD§UE16888 12654 IF LEFT$(Y5$.2)="HF"THENY¤UHAhL(HID$(Y5$.3.15))LRETURN 12655 GDTU14?58 12788 Y1$="HGD.FREOU.":REH*##*#*#**X¥55 12781 IFYG$¤"P"THENY3$="BF."!GU5UB16B18lY3$="AU"}GDTU11312 12782 IFYE<>8 ENG YE<§1 THEN YE=8 12783 DNYE+1GDTU127B8.12728 1278B Y3$="hU1“IGUTD11312 12728 Y3$="HU.1":GDTU11322 12758 Y1$="BEAT FREG.“:REH**##****XKI56 12752 Y1=YEIGD§UE12658:YB=5GN(Y-Y8) 12754 Y=Y8:GU5UE18358 12756 DNY1GUTG1275B.12768 12758 YE¤8:Y4%=“hF."!GDTD12762 12768 YE=81Y4$="RT." 12762 Y5$=Y4$+"hU.":GDSUE16818 12763 Y5$=Y4$+"AU.":EU JBt6E18 12764 GDSUEIE 881Y=YB*INT(UAL(MID$(Y5$.3.9)JI 12766 IFLEFT$(Y5%.2)=“MX"THENHETURH 12763 GDTD14958 12888 Y1$¤"»— -·-··-- -~ —------- ":REMtX**X*I57 12881 RETURN